home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.024.Teach / teach.p / uGlobals.p < prev    next >
Encoding:
Text File  |  1990-06-24  |  2.2 KB  |  97 lines  |  [TEXT/MPS ]
  1. {**********************************************************************
  2. {*
  3. {* Teach Globals -- Version 3.0  (interface)
  4. {*
  5. {* Copyright (c)
  6. {* Apple Computer, Inc.  1986-1990
  7. {* All Rights Reserved.
  8. {*
  9. {* Developer Technical Support Apple II Sample Code
  10. {*
  11. {* This file contains the global variables used by the Teach 
  12. {* program.
  13. {*
  14. {**********************************************************************}
  15.  
  16. UNIT uGlobals;
  17.  
  18. INTERFACE
  19.  
  20. USES    
  21.  
  22.         types,
  23.         locator,
  24.         memory,
  25.         quickdraw,
  26.         intMath,
  27.         events,
  28.         controls,
  29.         windows,
  30.         dialogs,
  31.         STDFile;
  32.  
  33. const
  34.  
  35.         AppleMenuID         = $1100;
  36.             AboutItem       = $1101;
  37.  
  38.         FileMenuID          = $1200;
  39.             NewItem            = $1203;
  40.             OpenItem        = $1204;
  41.             SaveItem        = $1205;
  42.             SaveAsItem      = $1206;
  43.             CloseItem       = 255;   {For DA's}
  44.             PageSetupItem   = $1207;
  45.             PrintItem        = $1208;
  46.             QuitItem        = $1202;
  47.  
  48.         EditMenuID          = $1300;
  49.             UndoItem        = 250;    {For DA's}
  50.             CutItem         = 251;    {For DA's}
  51.             CopyItem        = 252;    {For DA's}
  52.             PasteItem       = 253;    {For DA's}
  53.             ClearItem       = 254;    {For DA's}
  54.             SelectAllItem   = $1306;
  55.  
  56.         FontMenuID            = $1400;
  57.             ChooseFontItem  = $1401;
  58.  
  59.         StyleMenuID            = $1500;
  60.             PlainItem        = $1501;
  61.             BoldItem         = $1502;
  62.             ItalicItem         = $1503;
  63.             UnderlineItem     = $1504;
  64.             ShadowItem         = $1505;
  65.             OutlineItem     = $1506;
  66.  
  67.         SizeMenuID             = $1600;
  68.             Size8Item        = $1601;
  69.             Size10Item        = $1602;
  70.             Size12Item        = $1603;
  71.             Size16Item        = $1604;
  72.             Size20Item        = $1605;
  73.             Size24Item        = $1606;
  74.             FirstFontItem     = $1402;
  75.  
  76.     MainWindowID = $1000;
  77.     
  78.  
  79. var
  80.        userID        : integer;      {Application ID assigned by Memory Mgr}
  81.        quitFlag        : boolean;      {True when quitting}
  82.        staggerCount : integer;        {used to stagger windows as they open }
  83.        event        : WmTaskRec;    {All events are returned here}
  84.        lastWindow    : GrafPortPtr;    {This private global is used in CheckFrontW.
  85.                                 ** to prevent extra work when the windows
  86.                                 ** have not changed.  It is initialized
  87.                                 ** at the beginning of MainEvent.}
  88.                                        
  89. procedure InitGlobals;                                     {Setup variables}
  90.  
  91. IMPLEMENTATION
  92.  
  93. {$i uGlobals.inc.p}
  94.  
  95.  
  96. END.
  97.